home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / comm / comstack.sit / Commstack_2.6.bin / Commstack 2.6 / card_14376.txt < prev    next >
Encoding:
Text File  |  1989-12-21  |  8.6 KB  |  428 lines
  1. -- card: 14376 from stack: in.6
  2. -- bmap block id: 14802
  3. -- flags: 0000
  4. -- background id: 2598
  5. -- name: News Sisèllys
  6. ----- HyperTalk script -----
  7. on opencard
  8.   click at location of card button id 24
  9. end opencard
  10.  
  11.  
  12.  
  13.  
  14. -- part 2 (field)
  15. -- low flags: 03
  16. -- high flags: 6007
  17. -- rect: left=8 top=71 right=337 bottom=505
  18. -- title width / last selected line: 0
  19. -- icon id / first selected line: 0 / 0
  20. -- text alignment: 0
  21. -- font id: 4
  22. -- text size: 9
  23. -- style flags: 0
  24. -- line height: 12
  25. -- part name: Field 1
  26. ----- HyperTalk script -----
  27. on mouseUp
  28.   get clickLine()
  29.   put it into linenumber
  30.   select line linenumber of card field 1
  31.   put space into card field "UserMessage"
  32.   global CommStorage
  33.   put false into OK
  34.   --put line linenumber of card field 1
  35.   get first character of line linenumber of card field 1
  36.   if it is " " then
  37.     put true into OK
  38.   end if
  39.   put first word of line linenumber of card field 1 into MailNumber
  40.   if OK then
  41.     go card "rn"
  42.     put "Current letter is " & MailNumber into card field "UserMessage"
  43.     global NewsState
  44.     openascii
  45.     writeascii MailNumber & return
  46.     put space into card field 1
  47.     displayscreen "dis","--more--("
  48.     closeascii
  49.     NewsStateDef
  50.   else
  51.     put "Se ei ole kirjeen otsikkorivi." into card field "UserMessage"
  52.   end if
  53. end mouseUp
  54.  
  55.  
  56.  
  57.  
  58.  
  59. -- part 3 (field)
  60. -- low flags: 01
  61. -- high flags: 0002
  62. -- rect: left=424 top=23 right=37 bottom=511
  63. -- title width / last selected line: 0
  64. -- icon id / first selected line: 0 / 0
  65. -- text alignment: 1
  66. -- font id: 4
  67. -- text size: 9
  68. -- style flags: 0
  69. -- line height: 12
  70. -- part name: LineCount
  71.  
  72.  
  73. -- part 4 (button)
  74. -- low flags: 00
  75. -- high flags: A004
  76. -- rect: left=11 top=37 right=55 bottom=122
  77. -- title width / last selected line: 0
  78. -- icon id / first selected line: 0 / 0
  79. -- text alignment: 1
  80. -- font id: 0
  81. -- text size: 12
  82. -- style flags: 0
  83. -- line height: 16
  84. -- part name: Next Letter
  85. ----- HyperTalk script -----
  86. on mouseUp
  87.   go card "rn"
  88.   openascii
  89.   writeascii "n"
  90.   put space into card field 1
  91.   displayscreen "dis","--more--("
  92.   closeascii
  93.   send NewsStateDef to card "rn"
  94.  
  95. end mouseUp
  96.  
  97.  
  98.  
  99. -- part 5 (button)
  100. -- low flags: 80
  101. -- high flags: 8003
  102. -- rect: left=12 top=57 right=75 bottom=115
  103. -- title width / last selected line: 0
  104. -- icon id / first selected line: 0 / 0
  105. -- text alignment: 1
  106. -- font id: 0
  107. -- text size: 12
  108. -- style flags: 0
  109. -- line height: 16
  110. -- part name: Next page
  111. ----- HyperTalk script -----
  112. on mouseUp
  113.   openascii
  114.   writeascii " "
  115.   put space into card field 1
  116.   displayscreen "dis"
  117.   NewsStateDef
  118.   closeascii
  119. end mouseUp
  120.  
  121.  
  122.  
  123. -- part 7 (button)
  124. -- low flags: 00
  125. -- high flags: A004
  126. -- rect: left=322 top=55 right=72 bottom=511
  127. -- title width / last selected line: 0
  128. -- icon id / first selected line: 0 / 0
  129. -- text alignment: 1
  130. -- font id: 0
  131. -- text size: 12
  132. -- style flags: 0
  133. -- line height: 16
  134. -- part name: Quit News
  135. ----- HyperTalk script -----
  136. on mouseUp
  137.   openascii
  138.   writeascii "q"
  139.   wait 1 sec
  140.   writeascii "q"
  141.   wait 1 sec
  142.   writeascii "q" & return
  143.   displayscreen "dis"
  144.   go card "News"
  145.   closeascii
  146. end mouseUp
  147.  
  148.  
  149.  
  150. -- part 8 (field)
  151. -- low flags: 01
  152. -- high flags: 2000
  153. -- rect: left=398 top=220 right=294 bottom=488
  154. -- title width / last selected line: 0
  155. -- icon id / first selected line: 0 / 0
  156. -- text alignment: 0
  157. -- font id: 0
  158. -- text size: 12
  159. -- style flags: 0
  160. -- line height: 16
  161. -- part name: UserMessage
  162.  
  163.  
  164. -- part 9 (button)
  165. -- low flags: 80
  166. -- high flags: A003
  167. -- rect: left=58 top=57 right=74 bottom=164
  168. -- title width / last selected line: 0
  169. -- icon id / first selected line: 0 / 0
  170. -- text alignment: 1
  171. -- font id: 0
  172. -- text size: 12
  173. -- style flags: 0
  174. -- line height: 16
  175. -- part name: Read this list
  176. ----- HyperTalk script -----
  177. on mouseUp
  178.   openascii
  179.   writeascii "y"
  180.   put space into card field 1
  181.   displayscreen "dis"
  182.   NewsStateDef
  183.   closeascii
  184. end mouseUp
  185.  
  186.  
  187.  
  188. -- part 10 (button)
  189. -- low flags: 80
  190. -- high flags: A003
  191. -- rect: left=57 top=20 right=39 bottom=165
  192. -- title width / last selected line: 0
  193. -- icon id / first selected line: 0 / 0
  194. -- text alignment: 1
  195. -- font id: 0
  196. -- text size: 12
  197. -- style flags: 0
  198. -- line height: 16
  199. -- part name: Next list
  200. ----- HyperTalk script -----
  201. on mouseup
  202.   openascii
  203.   writeascii "n"
  204.   put space into card field 1
  205.   displayscreen "dis"
  206.   NewsStateDef
  207.   closeascii
  208. end mouseup
  209.  
  210.  
  211.  
  212. -- part 12 (button)
  213. -- low flags: 80
  214. -- high flags: A003
  215. -- rect: left=58 top=39 right=57 bottom=163
  216. -- title width / last selected line: 0
  217. -- icon id / first selected line: 0 / 0
  218. -- text alignment: 1
  219. -- font id: 0
  220. -- text size: 12
  221. -- style flags: 0
  222. -- line height: 16
  223. -- part name: Previous list
  224. ----- HyperTalk script -----
  225. on mouseup
  226.   openascii
  227.   writeascii "p"
  228.   put space into card field 1
  229.   displayscreen "dis"
  230.   NewsStateDef
  231.   closeascii
  232. end mouseup
  233.  
  234.  
  235.  
  236. -- part 16 (button)
  237. -- low flags: 00
  238. -- high flags: A004
  239. -- rect: left=124 top=55 right=73 bottom=321
  240. -- title width / last selected line: 0
  241. -- icon id / first selected line: 0 / 0
  242. -- text alignment: 1
  243. -- font id: 0
  244. -- text size: 12
  245. -- style flags: 0
  246. -- line height: 16
  247. -- part name: Get again number ...
  248. ----- HyperTalk script -----
  249. on mouseup
  250.   go card "rn"
  251.   send mouseup to card button id 16 of card "rn"
  252. end mouseup
  253.  
  254.  
  255.  
  256. -- part 22 (button)
  257. -- low flags: 00
  258. -- high flags: A004
  259. -- rect: left=345 top=326 right=342 bottom=432
  260. -- title width / last selected line: 0
  261. -- icon id / first selected line: 0 / 0
  262. -- text alignment: 1
  263. -- font id: 0
  264. -- text size: 12
  265. -- style flags: 0
  266. -- line height: 16
  267. -- part name: Speak Text
  268. ----- HyperTalk script -----
  269. on mouseUp
  270.   ReadField1
  271. end mouseUp
  272.  
  273.  
  274.  
  275. -- part 23 (button)
  276. -- low flags: 00
  277. -- high flags: A004
  278. -- rect: left=433 top=326 right=342 bottom=482
  279. -- title width / last selected line: 0
  280. -- icon id / first selected line: 0 / 0
  281. -- text alignment: 1
  282. -- font id: 0
  283. -- text size: 12
  284. -- style flags: 0
  285. -- line height: 16
  286. -- part name: PANIC
  287. ----- HyperTalk script -----
  288. on mouseup
  289.   PANIC
  290. end mouseup
  291.  
  292.  
  293.  
  294. -- part 24 (button)
  295. -- low flags: 00
  296. -- high flags: A004
  297. -- rect: left=322 top=37 right=55 bottom=511
  298. -- title width / last selected line: 0
  299. -- icon id / first selected line: 0 / 0
  300. -- text alignment: 1
  301. -- font id: 0
  302. -- text size: 12
  303. -- style flags: 0
  304. -- line height: 16
  305. -- part name: Subjects of the list
  306. ----- HyperTalk script -----
  307. on mouseUp
  308.   go card "News Sis├ñllys"
  309.   get card field "Listan Nimi" of card "rn"
  310.   if it is card field "Listan Nimi" of this card then
  311.     exit mouseup
  312.   end if
  313.   put card field "listan nimi" of card "rn" into card field "Listan Nimi" of this card
  314.   openascii
  315.   writeascii "="
  316.   put space into card field 1
  317.   put false into OK
  318.   repeat until OK
  319.     displayscreen "dis","[Type space to continue]"
  320.     if "[Type space to continue]" is in card field 1 then
  321.       get offset("[Type space to continue]",card field 1)
  322.       put empty into char it to it+24 of card field 1
  323.       put false into OK
  324.       writeascii " "
  325.     else
  326.       put true into OK
  327.     end if
  328.   end repeat
  329.   closeascii
  330. end mouseUp
  331.  
  332.  
  333.  
  334. -- part 25 (button)
  335. -- low flags: 00
  336. -- high flags: A004
  337. -- rect: left=124 top=37 right=55 bottom=321
  338. -- title width / last selected line: 0
  339. -- icon id / first selected line: 0 / 0
  340. -- text alignment: 1
  341. -- font id: 0
  342. -- text size: 12
  343. -- style flags: 0
  344. -- line height: 16
  345. -- part name: Mark list as read
  346. ----- HyperTalk script -----
  347. on mouseUp
  348.   go card "rn"
  349.   send mouseup to card button id 25 of card "rn"
  350. end mouseUp
  351.  
  352.  
  353.  
  354. -- part 26 (field)
  355. -- low flags: 01
  356. -- high flags: 2000
  357. -- rect: left=385 top=102 right=221 bottom=488
  358. -- title width / last selected line: 0
  359. -- icon id / first selected line: 0 / 0
  360. -- text alignment: 0
  361. -- font id: 0
  362. -- text size: 12
  363. -- style flags: 0
  364. -- line height: 16
  365. -- part name: 
  366.  
  367.  
  368. -- part 27 (field)
  369. -- low flags: 00
  370. -- high flags: 0002
  371. -- rect: left=11 top=23 right=37 bottom=422
  372. -- title width / last selected line: 0
  373. -- icon id / first selected line: 0 / 0
  374. -- text alignment: 1
  375. -- font id: 3
  376. -- text size: 9
  377. -- style flags: 256
  378. -- line height: 12
  379. -- part name: Listan nimi
  380.  
  381.  
  382. -- part 29 (button)
  383. -- low flags: 00
  384. -- high flags: A004
  385. -- rect: left=11 top=54 right=71 bottom=122
  386. -- title width / last selected line: 0
  387. -- icon id / first selected line: 0 / 0
  388. -- text alignment: 1
  389. -- font id: 0
  390. -- text size: 12
  391. -- style flags: 0
  392. -- line height: 16
  393. -- part name: Next list
  394. ----- HyperTalk script -----
  395. on mouseUp
  396.   go card "rn"
  397.   openascii
  398.   writeascii "q"
  399.   put space into card field 1
  400.   displayscreen "dis","--read now?"
  401.   closeascii
  402.   send NewsStateDef to card "rn"
  403.  
  404. end mouseUp
  405.  
  406.  
  407.  
  408. -- part contents for card part 3
  409. ----- text -----
  410. Lines 2
  411.  
  412. -- part contents for card part 8
  413. ----- text -----
  414.  
  415.  
  416. -- part contents for card part 26
  417. ----- text -----
  418. Osoita kirjett├ñ, jonka haluat lukea.
  419. Point at letter You want to read.
  420.  
  421. -- part contents for card part 27
  422. ----- text -----
  423. <comp.dcom.lans>
  424.  
  425. -- part contents for card part 2
  426. ----- text -----
  427.  
  428. [K33